Otherware/Otherware_1_SB_Development.iso/mac/hypercar/mactool/bombandc.cpt/B&C Encyclopedia/stack.txt

Text File | 1991-03-23 | 6.7 KB | 250 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 1499280985
-- maximum user level: 4 (authoring)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 8
-- first background id: 2774
-- card count: 66
-- first card id: 2851
-- list block id: 18169
-- print block id: 5302
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 168992 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x01258000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
This script and all scripts contained in
the Bomb and Crash Encyclopedia -- Version 1.0
Copyright © 1991 by MacSpect, Inc.
All Rights Reserved
Commercial Distribution Restricted
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
on SetPassword
  global CorrectPassword
  put 134679852 into CorrectPassword
end SetPassword

on arrowKey direction
  if direction is "left" then
    get the short id of prev cd
    if it is 2851 then
      visual effect scroll right
      go cd "Help"
      exit arrowKey
    end if
    if it is 33768 then
      go cd "TitlePage"
      visual effect scroll right
      exit arrowKey
    end if
    if it is 36312 then
      visual effect scroll right
      go cd "TitlePage"
      exit arrowKey
    end if
    if it is 36369 then
      visual effect scroll right
      go cd "TitlePage"
      exit arrowKey
    end if

    visual effect scroll right
    go previous cd

  else

    if direction is "right" then
      get the short id of next cd
      if it is 2851 then
        visual effect scroll left
        go cd "TitlePage"
        exit arrowKey
      end if
      if it is 33768 then
        visual effect scroll left
        go cd "TitlePage"
        exit arrowKey
      end if
      if it is 33612 then
        visual effect scroll left
        go cd "TitlePage"
        exit arrowKey
      end if
      if it is 36369 then
        visual effect scroll left
        go cd "TitlePage"
        exit arrowKey
      end if

      visual effect scroll left
      go next cd
    else
      pass arrowKey
    end if
  end if
end arrowKey

on closeStack
  hide cd fld "NotRegistered" of cd "TitlePage"
  if the freesize of this stack / 1000 > 2
  then doMenu "Compact Stack"
end closeStack

on CodeFind
  ask "Find which error code?"
  if it is empty then exit codefind
  put the name of this cd into CdStart
  push cd
  if it ≥ 1 then
    visual effect dissolve
    go cd "E"& it
  end if
  if it Γëñ -1 then
    visual effect dissolve
    go cd "E_"& abs(it)
  end if
  put the name of this cd into CdEnd
  if CdStart = CdEnd then
    play boing
    answer "Can't find it!" with "OK"
  end if
end Codefind

on BcQuit
  answer "Do you really want to quit HyperCard?" with "Yes" or "No"
  if it is "No" then exit BcQuit
  doMenu "Quit Hypercard"
end BcQuit

on GoHome
  answer "Go to the Home stack?" with "Home..." or "Cancel"
  if it is "Cancel" then exit GoHome
  visual effect barn door close slow
  go home
end GoHome

on Help
  visual effect iris open slow
  go cd "Help"
end Help

on HC20
  play boing
  answer "This stack was designed in HyperCard 1.2.5,   it needs to be converted to this version of HyperCard to work properly. You can save a back-up copy of the stack before conversion." with "Save a Copy" or "Convert" or "Quit"
  if it is "Save a Copy" then
    doMenu "Save a Copy..."
    ConvertHC
    exit HC20
  else if it is "Convert" then
    ConvertHC
    exit HC20
  else if it is "Quit" then
    answer "Where do you wish to go?" with "Desktop" or "Home stack" or "Cancel"
    if it is "Desktop" then
      doMenu "Quit HyperCard"
      exit HC20
    else if it is "Home stack" then
      visual effect zoom close
      go home
      exit HC20
    end if
  end if
end HC20

on ConvertHC
  answer "Do you really want to convert this stack?" with "Yes" or "No"
  if it is "No" then exit ConvertHC
  put "Converting this stack to HyperCard " & the version
  show msg
  doMenu "Convert Stack..." without dialog
  hide msg
end ConvertHC

on Flock
  push cd
  repeat with x=1 to the number of cards
    go cd x
    repeat with y=1 to the number of cd fields
      set lockText of cd fld y to true
    end repeat
  end repeat
  repeat with x=1 to the number of backgrounds
    go first card of bg x
    repeat with y=1 to the number of fields
      set lockText of fld y to true
    end repeat
  end repeat
  pop cd
end Flock

on Funlock
  push cd
  repeat with x=1 to the number of cards
    go cd x
    repeat with y=1 to the number of cd fields
      set lockText of cd fld y to false
    end repeat
  end repeat
  repeat with x=1 to the number of backgrounds
    go first cd of bg x
    repeat with y=1 to the number of fields
      set lockText of fld y to false
    end repeat
  end repeat
  pop cd
end Funlock